* admin/admin.el (set-version): Check for empty NEWS sections.

diff --git a/admin/admin.el b/admin/admin.el
index d3a477fde805288629dbfdcdb99f32ede68a9c90..5968e32b05e9d3370760e518a0c3bf3b0b1a905c 100644 (file)
--- a/admin/admin.el
+++ b/admin/admin.el
@@ -147,6 +147,10 @@ Root must be the root of an Emacs source tree."
     (unless (> (length newversion) 2)   ; pretest or release candidate?
       (with-temp-buffer
         (insert-file-contents newsfile)
+        (when (re-search-forward "^\\* [^\n]*\n+\f" nil t)
+          (display-warning 'admin
+                           "NEWS file contains empty sections - remove them?"))
+        (goto-char (point-min))
         (if (re-search-forward "^\\(\\+\\+\\+ *\\|--- *\\)$" nil t)
             (display-warning 'admin
                              "NEWS file still contains temporary markup.